home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / MPW IIGS SC / SC.020.DTS.Tools.Libs / fmdUserTool.aii < prev    next >
Encoding:
Text File  |  1990-06-24  |  2.7 KB  |  163 lines  |  [TEXT/MPS ]
  1. *
  2. * User-Toolset shell for Apple IIgs FakeModalDialog code
  3. *
  4. * David A. Lyons
  5. *
  6. * Developer Technical Support Apple II Sample Code
  7. *
  8. * v3.0  12-Mar-90  DAL
  9. *
  10.     case on
  11.  
  12. Version    equ $0100    ;v1.0
  13.  
  14. fmdUserTool    proc
  15.  
  16.  
  17.     import fmdStartUp
  18.     import fmdShutDown
  19.     import fakeModalDialog
  20.     import fmdSetMenuProc
  21.     import fmdGetMenuProc
  22.     import fmdStdDrawProc
  23.     import fmdEditMenu
  24.     import fmdFindCursorCtl
  25.     import fmdLESetText
  26.     import fmdLEGetText
  27.     import fmdWhichRadio
  28.     import fmdIBeamCursor
  29.     import fmdInitIBeam
  30.     import fmdSetIBeam
  31.     import fmdGetIBeamAdr
  32.     import fmdGetCtlPart
  33.     import fmdGetError
  34.  
  35.     dc.l (@fmdEnd-@fmdStart)/4 + 1
  36. @fmdStart    dc.l fNoError-1    ;01xx fmdBootInit
  37.     dc.l fStartUp-1    ;02xx fmdStartUp
  38.     dc.l fShutDown-1    ;03xx fmdShutDown
  39.     dc.l fVersion-1    ;04xx fmdVersion
  40.     dc.l fNoError-1    ;05xx fmdReset
  41.     dc.l fStatus-1    ;06xx fmdSTatus
  42.     dc.l fNoError-1    ;07xx reserved
  43.     dc.l fNoError-1    ;08xx reserved
  44.     dc.l fFakeMdlDlg-1    ;09xx fakeModalDialog
  45.     dc.l fSetMenuProc-1    ;0Axx fmdSetMenuProc
  46.     dc.l fGetMenuProc-1    ;0Bxx fmdGetMenuProc
  47.     dc.l fmdStdDrawProc-1 ;0Cxx fmdStdDrawProc*
  48.     dc.l fmdEditMenu-1    ;0Dxx fmdEditMenu*
  49.     dc.l fFindCursCtl-1    ;0Exx fmdFindCursorCtl
  50.     dc.l fSetText-1    ;0Fxx fmdLESetText
  51.     dc.l fGetText-1    ;10xx fmdLEGetText
  52.     dc.l fWhichRadio-1    ;11xx fmdWhichRadio
  53.     dc.l fmdIBeamCursor-1 ;12xx fmdIBeamCursor*
  54.     dc.l fmdInitIBeam-1    ;13xx fmdInitIBeam*
  55.     dc.l fSetIBeam-1    ;14xx fmdSetIBeam
  56.     dc.l fGetIBeamAdr-1    ;15xx fmdGetIBeamAdr
  57.     dc.l fGetCtlPart-1    ;16xx fmdGetCtlPart
  58.     dc.l fGetError-1    ;17xx fmdGetCtlPart
  59. @fmdEnd
  60.  
  61. *    
  62. save6    lda >myStatus
  63.     beq notStarted
  64.     plx
  65.     pla
  66.     sta >temp
  67.     pla
  68.     sta >temp+2
  69.     pla
  70.     sta >temp+4
  71.     phx
  72.     rts
  73.  
  74. temp    ds.b 6
  75.  
  76. myStatus    ds.w 1
  77.  
  78. notStarted    pla    ;discard return address
  79.     txa
  80.     xba
  81.     and #$FF00
  82.     ora #$8001
  83.     sec
  84.     rtl
  85.  
  86. fStartUp    jsl fmdStartUp
  87.     lda #$FFFF
  88.     bra startStop
  89.  
  90. fShutDown    jsl fmdShutDown
  91.     lda #$0000
  92. startStop    sta >myStatus
  93. fNoError    lda #0
  94.     clc
  95.     rtl
  96.  
  97. fVersion    lda #Version
  98.     sta 7,s
  99.     bra fNoError
  100.  
  101. fStatus    lda >myStatus
  102.     sta 7,s
  103.     bra fNoError
  104.  
  105. fFakeMdlDlg    jsr save6
  106.     jsl fakeModalDialog
  107.     bra restore6
  108.  
  109. fSetMenuProc    jsr save6
  110.     jsl fmdSetMenuProc    ;Ahhhhh!!  We are falling.
  111.  
  112.  
  113. restore6    tay    ;This is here so everybody
  114.     lda >temp+4    ;can reach it.
  115.     pha
  116.     lda >temp+2
  117.     pha
  118.     lda >temp
  119.     pha
  120.     tya
  121.     rtl
  122.  
  123.     
  124. fGetMenuProc    jsr save6
  125.     jsl fmdGetMenuProc
  126.     bra restore6
  127.  
  128. fFindCursCtl    jsr save6
  129.     jsl fmdFindCursorCtl
  130.     bra restore6
  131.  
  132. fSetText    jsr save6
  133.     jsl fmdLESetText
  134.     bra restore6
  135.  
  136. fGetText    jsr save6
  137.     jsl fmdLEGetText
  138.     bra restore6
  139.  
  140. fWhichRadio    jsr save6
  141.     jsl fmdWhichRadio
  142.     bra restore6
  143.  
  144. fSetIBeam    jsr save6
  145.     jsl fmdSetIBeam
  146.     bra restore6
  147.  
  148. fGetIBeamAdr    jsr save6
  149.     jsl fmdGetIBeamAdr
  150.     bra restore6
  151.  
  152. fGetCtlPart    jsr save6
  153.     jsl fmdGetCtlPart
  154.     bra restore6
  155.  
  156. fGetError    jsr save6
  157.     jsl fmdGetError
  158.     bra restore6
  159.  
  160.     endp
  161.     
  162.     end
  163.